﻿Public Class frmWelcome
    Public MainForm As frmMain
    Sub New()
        ' This call is required by the Windows Form Designer.
        InitializeComponent()
        ' Add any initialization after the InitializeComponent() call.
    End Sub
    Private Sub frmWelcome_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        timerForBeginExit.Enabled = True
        timerForBeginExit.Start()
        Me.lblAppName.Text = Application_Name
        Me.lblAppVersion.Text = Application_Version
        Me.lblCopyRight.TitleText = "Free Software Developed By:" & Application_Author & "  Version:" & Application_Version
    End Sub
    Private Sub timerForExit_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles timerForExit.Tick
        If Me.Opacity > 0 Then
            Me.Opacity -= 0.05
        Else
            Me.Close()
        End If
    End Sub
    Private Sub timerForBeginExit_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles timerForBeginExit.Tick
        timerForExit.Enabled = True
        timerForExit.Start()
        timerForBeginExit.Stop()
        timerForBeginExit.Enabled = False
    End Sub
End Class